home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1099.dms / q1099.adf / MathPlot / Macros / FixPunkt.mapl < prev    next >
Text File  |  1997-04-10  |  586b  |  26 lines
  1. /* Einfaches Fixpunktverfahren */
  2.  
  3. options results
  4.  
  5. setnumprecision 16
  6. requeststring 'PROMPT "Fixpunktsatz - Funktion" DEFAULT "asin(.3**cos(x))" var FUNC'
  7.  
  8. if(RC == 0) then do
  9.  requeststring 'PROMPT "Startwert" DEFAULT "0" var start'
  10.  if( ~RC) then do
  11.   x = start
  12.   j = 0
  13.   do forever
  14.    do i=1 to 5
  15.     j = j + 1
  16.     evalstring func " x=" x
  17.     x = result
  18.     erg.i = x
  19.    end
  20.    requestresponse 'TITLE "Nach 'j' Durchläufen" 
  21.    PROMPT "'j-4': 'erg.1'*N'j-3': 'erg.2'*N'j-2': 'erg.3'*N'j-1': 'erg.4'*N'j': 'erg.5'" 
  22.    BUTTON "Weiter|ENDE" '
  23.    if(RC == 5) then exit 0
  24.   end
  25.  end
  26. end